﻿Imports VN.INS.BL.BC
Imports System.Data
Imports System.Web
Imports System.IO

Partial Class Devida_PoaActividadFisica
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If (Not (Page.IsPostBack)) Then
            'Capturamos parametros
            ViewState("POA") = Request.QueryString("Param").ToString

            ViewState("POA") = Request.QueryString("Param").ToString
            ViewState("NomEjecutor") = Request.QueryString("NomEjecutor").ToString
            ViewState("NomProyAct") = Request.QueryString("NomProyAct").ToString

            lblNomProyAct.Text = "ACTIVIDAD/PROYECTO: " + ViewState("NomProyAct")
            lblNomEjecutor.Text = "EJECUTOR: " + ViewState("NomEjecutor")
            lblPoa.Text = ViewState("POA")

            'Cargamos grilla
            CargarGrillaMon(ViewState("POA"))
        End If
    End Sub

    Public Sub CargarGrillaMon(ByVal POA As String)
        Dim objFisicoBC As ProgFisicoBC
            Dim objData As DataTable
        objFisicoBC = New ProgFisicoBC
        objData = objFisicoBC.filtrar_Progfisico(POA)
        gv_progfisico.DataSource = objData
        gv_progfisico.DataBind()
        gv_doc.DataSource = objData
        gv_doc.DataBind()

    End Sub

    Protected Sub btn_salir_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btn_salir.Click
        'regresar a pagina principal
        Response.Redirect("listaPOAs.aspx")
    End Sub

End Class
